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This publication provides the programmer 
with the information needed to plan for 
the use of the new and faster 7090/7094 
FORTRAN IV Compiler (IBFTC) that will 
replace the present FOHTHAfJ IV compiler. 
In almost every respect, the new compiler 
will operate within the environment of the 
present IBJOB Processor. 

The 7090/7094 FORTkAN IV language will 
be enlarged to include the following four 
language features: (1) input/output 
without an explicit input/output list and 
FORMAT statement, (2) a maximum of seven 
dimensions for arrays, (3) nonstandard 
returns from subroutines, and (4) multi- 
ple entry points to a subprogram. 








PREFACE 



The new 7090/7094 FORTRAN IV Compiler (IBFTC) is designed to 
be a replacement for the present version of the FORTRAN IV 
compiler. The new compiler will operate in two passes, 
enabling it to be faster than the present version. These two 
passes will be an instruction compilation pass and an assem- 
bly pass. The output of the second pass will be input to the 
Loader (IBLDR). Because assembly will be performed by the 
compiler, the Macro Assembly Program will not be used. The 
new compiler will accept the same source program input as does 
the present version of IBFTC and will produce mathematically 
equivalent object program coding that is at least as efficient 
as that produced by the present compiler. 

The machine configuration for the new FORTRAN IV compiler 
will remain the same as for the present version of the 7090/ 
7094 FORTRAN IV Compiler (IBFTC). 

It is assumed that the reader is familiar with the 
contents of the following publications: 

l^ai-19. 9 0/70 £i_I B S YS_0£e r a t _i na_S \i s t e m^ IB JQB_P r oc e s s o r , 

Form C28-6275-2 

1BM_7 090/7094_P roar ammXnc[_S\f sterns J. FORTRAN_iy_Lanauaae, 

Form C28-6274-1 

lBM_7 090/7094_Pro2rammina_S\f3tems_2_ FQRTRANIV Languaqe^^ 

Addenda_and_Errata_to_Forin_C28-6274-l, Form N28-0 69 

The new language feature, input/output without an explicit 
input/output list and FORMAT statement, is described in the 

publication I BM_7 9 0/7 94_F OR TR A N_ I V_L a n£ uage j. in£ u t /O u t £ u t 

Wlii!Oi!i_i2S£ii£iiItisi_and_F0RMAT ,~Form C28-6377 . 

This publication is divided into two sections. The first 
section contains descriptions of the changes to the IBJOB 
environment; the second section contains descriptions of the 
new language features. 



Copies of this and other IBM publications can be 
obtained through IBM Branch Offices. 

Address comments concerning the contents of this 
publication to: 

IBM Corporation, Programming Systems Publications, 
Dept. D91, PO Box 390, Poughkeeps ie , N.Y. 12602 

(c) 1964 by International Business Machines Corporation 
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lBiQB_ENVIRONMENT 



The new 7090/7094 FORTRAN IV Compiler will operate 
under the IBJOB Processor as described in the publi- 
cation IBM 7090/7094 THSYS nnp.ratinn 9i\i^to.m'. TR.inR 
£Z°££SSor, Form C28-6275-2. There will be two changes 
to the IBJOB environment involving Prest decks and the 
$IBFTC card. These changes are described in the 
f oi lowing text . 



Since the new compiler will not produce symbolic input 
to the Macro Assembly Program, a Prest deck of the 
symbolic output from the compiler cannot be obtained 
for a FORTRAN compilation. Therefore, if the option 
PREST is specified on the $QEDIT card, it will be 
ignored. However, the option CPREST will still be 
operative. For further discussion of these options, 
see the section "$OEDIT Card" in the publication IBM 

Z09 0/Z094_IBSYS_0£eratina_Si/stemi IB JOB_P roces sor , 

Form C28-6275-2. 



lll£IC_Capd 

The format of the $IBFTC card will be: 
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where deckname identifies the deck that follows. A 
deck name of six or fewer alphameric characters must be 
punched in columns 8-13. Characters that cannot be 
used in the deck name are: parentheses, commas, 
slashes, quotation marks, equal signs, and blanks. 



IBJOB Environment 



The variable field starts in column 16. The 
options in the variable field are described in the 
I o 1 1 owi ng text . 



List Options 

The list options are: 

1. LIST — A listing of the object prograrr, three 
instructions per line, is generated. Only the 
relative locations and symbolic information are 
1 i sted. 

2. NOLIST — A listing of the object program is not 
wanted. 

If neither LIST nor NOLIST is specified, a listing 
is not generated. 



Debug Options 

The debug options are as follows: 

1. NDDD — The debugging dictionary is not generated, 

2. DD — The full debugging dictionary is generated. 
All the symbols in the compiled program will 
appear in the debugging dictionary. For a 
FORTRAN IV program, this includes all statement 
numbers, all programmer-specified symbols, and 
all symbols generated by IBFTC. 

3. SDD — The short debugging dictionary is gener- 
ated. It will contain only the programmer- 
specified symbols and the statement numbers 
used in the FORTRAN IV program. 

If neither NDDD, DD, nor SDD is specified, the 
debugging dictionary is not generated. 



Punch Options 

The punch options are as follows: 

1. DECK — The object program deck is written on 
the system peripheral punch unit for off-line 
punchi ng. 

2. NODECK — A punched deck is not wanted. 

If neither DECK nor NODECK is specified, the object 
program deck is written on the system peripheral punch 
uni t . 



Instruction Set Options 

The instruction set options are as follows: 

1. M90 — The object program uses only 7090 machine 
instructions. Any double-precision operations 
are simulated by system macros, and EVEN 
pseudo-operations are treated as commentary. 

2. M94 — The object program uses 7094 machine 
i nstruct ions. 

3. M94/2 — The object program uses 7094 machine 
instructions, and EVEN pseudo-operations are 
treated as commentary. 

If neither M90, M94, nor M94/2 is specified, it is 
assumed that the object program uses only 7090 machine 
i nstruct i ons. 



Index Register Options 

The index register options are as follows: 

1. XR3 — The object program uses three index 
registers (1, 2, and 4). 

2. XRn — The object program can use up to n index 
registers, if they are required (n is a number 
from 4 through 7). 

If neither XR3 nor XRn is specified, it is assumed 
that the object program uses three index registers. 



New Language Features 



NEW LANGUAGE FEATURES 



The 7090/7094 FORTRAN IV language will be enlarged to 
include four new language features. These are: 

1. Input/output and conversion without an ex- 
plicit input/output list and FORMAT statement. 
This feature is described in the publication 
IBM_7 09 0/7094_FORTRAN_iy_.Lanajiaaei_Ingut/OutEut 

Without_E2C2licj.t_List_and_F0RMAT, Form C28-6377 

2. A maximum of seven dimensions for arrays. 

3. Nonstandard returns from subroutines. 

4. Multiple entry points to a subprogram. 

Items 2, 3, and 4 are described in the following 
text . 



Arra\/s_with_a_Maximum_of_Seyen_Dimen3_ions 

An array may be declared to have a maximum of seven 
dimensions by placing it in a DIMENSION statement with 
the appropriate number of subscripts appended to the 
var i able. 



General Form 



DIMENSION V/^( lj^)»V2(i2)»'" 
where: 

1. Each Vn is an array variable, and 

2. Each in is composed of 1, 2, 3, 4, 5, 6, 
or 7 unsigned integer constants and/or integer 
variables, separated by commas. (Integer vari- 
ables may be a component of ip only when the 
DIMENSION statement appears in a subprogram.) 



Examples: 

DIMENSION A(l,2,3,4), B(10) 
DIMENSION C(2,2,3,3,4,4,5) 

In the preceding examples, A, B, and C are declared 
to be array variables with 4, 1, and 7 dimensions, 
respect i vel \/. 

The COMMON statement or one of the Type statements 

< o^ for,* FYTFDMfll ^ mow =1„„ !,„ A a- j_-i 

y^ — ,>w>-^,. v^yi . t^nmiii^ y '""J/ <JiOi_> UIS UBCU lU U C U 1 O 1" C Cl I" l" fl \/ S 

with a maximum of seven dimensions. 



Non 3 tandard_Returns_from_Sub routines 

The normal sequence of execution following the RETURN 
statement of a SUBROUTINE subprogram is to the next 
executable statement following the CALL statement in 
the calling program. It will also be possible to 
return to any executable numbered statement in the 
calling program by using a special return from the 
called subprogram. This return may not violate DO 
loop rules. 

The following text describes the changes in coding 
that will be required to return from the subroutine to 
a statement other than the next executable statement 
following the CALL. 



New Language Features 



The general form of the CALL statement in the 
calling program is: 



General Form 



CALL SUBR (a^,a2,a^,...,a^) 
where: 

1. SUBR is the name of the SUBROUTINE 
subprogram being called, and 

2. e J is a dummy argument of the form 
described in the publication IBM_7090/7094 

PX02rammin2_Si(stems|_ FORT RA N_ I \/_L an^u age , 

Form C28-6274-1, or is of the form: 

nS 

where n is a statement number and S is the 
character S. 



The general form of the SUBROUTINE statement in the 
called program is: 



General Form 



SUBROUTINE SUBR ( a-,^, a^ja^, . . . , a^) 
where: 

1. SUBR is the name of the subprogram, and 

2. a i is a dummy argument of the form 
described in the publication IBM_7090/7094 

££231 ai!!IDill2_§Jli5i£n!51 ESBIEAN. I V_L anc[u age , Form 

C28-6274-1, or is of the form: 



where * is the character asterisk (*) and denotes 
a nonstandard return. 



10 



The general form of the RETURN statement in the 
called program is: 



General Form 



RETURN or RETURN i 



where : 



i is an integer constant or variable whose 
value, n, denotes the nth nonstandard return in 
the argument list, reading from left to right. 



Example : 
£5j.i.in£_Pro2ram 



SUBROUTINE SUB (X,Y,2,*,*) 



10 CALL SUB (A,B,C,30S,40S) 
20 



30 



40 



100 IF (R) 200,300,400 
200 RETURN 
300 RETURN 1 
400 RETURN 2 
END 



END 



In the preceding example, execution of statement 10 
in the calling program causes entr\/ into subprogram 
SUB. If statement 100 is executed, the return to the 
calling program will be to statement 20, 30, or 40, if 
R is less than, equal to, or greater than zero, 
respect i vely . 

Nonstandard returns may be best understood by 
showing that a CALL statement that uses the nonstand- 
ard return is equivalent to a CALL and a computed GO TO 
statement in sequence. For example. 



New Language Features 11 



CALL NAME ( P , 20S , Q , j5S , R , 22S ) 

i s equi va 1 ent to 

CALL NAME ( P,Q,R) 
GO TO ( 20,35,22),! 

where the index I is set according to the value of the 
integer in the RETURN statement executed in the called 
subprogram. If the RETURN is blank or zero, a normal 
(rather than nonstandard) return is made to the state- 
ment immediately following the GO TO. 

Similarly, the arguments in the associated 
SUBROUTINE statement will correspond to the arguments 
in the CALL statement as follows: 

SUBROUTINE NAME ( S, *, T, * , U, * ) 

Mi!J.tj^2i®_iBillJf_EolDis_inlo_a_Sub£ro3ram 

The normal entry into a SUBROUTINE subprogram from the 
calling program is by a CALL statement that references 
the subprogram name. The normal entry into a FUNCTION 
subprogram is made by a function reference in an 
arithmetic expression. Entry is made at the first 
executable statement following the SUBROUTINE or 
FUNCTION statement. 

It will also be possible to enter a subprogram by a 
CALL statement or a function reference that references 
an ENTRY statement in the subprogram. Entry is made at 
the first executable statement following the ENTRY 
statement . 

ENTRY statements are nonexecutable and, therefore, 
do not affect control sequencing during normal execu- 
tion of a subprogram. The order, type, ana number of 
arguments need not agree between the SUBROUTINE or 
FUNCTION statement and the ENTRY statements, nor do the 
ENTRY statements have to agree among themselves in 
these respects. Each CALL or function reference, how- 
ever, must agree in order, type, and number with the 
SUBROUTINE, FUNCTION, or ENTRY statement that it refer- 
ences. No subprogram may reference itself directly or 
through any of its entry points. 



12 



The general form of the ENTRY statement in the 
caiied subprograin is: 



General Form 



ENTRY Name (B ,B ,.. .,B ) 
^ y 2^ n^ 

where: 

1. Name is the symbolic name of an entry 
point, and 

2. Each Bi is a dummy argument correspond- 
ing to an actual argument in a CALL statement or 
in a function reference. 



Example: 



1 CALL SUBl (A,B,C,D,E,F) 



2 CALL SUB2 (G,H,P) 



3 CALL SUB3 



END 



£5Jli^^_£X222151D 

SUBROUTINE SUBl ( U, V, W,X , Y,Z ) 



10 U = V 



ENTRY SUB2 (T,U,V) 



ENTRY SUBS 



END 



In the preceding example, the execution of state- 
ment 1 causes entry into SUBl, starting with the first 
executable statement of the subroutine. Execution of 
statements 2 and 3 also causes entry into the called 
program, starting with the first executable statement 
following the ENTRY SUB2 (T,U,V) and ENTRY SUB3 state- 
ments, respectively. 
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Additional Rules for Entry Points 

The following rules also apply to entry points; 

1. If an adjustable array name or any of its 
adjustable dimensions appears in an argument 
list for a FUNCTION, SUBROUTINE, or ENTRY 
statement, that array name and all its 
adjustable dimensions must appear in that 
argument list. 

2. A dummy argument may not appear in any state- 
ment unless it previously appeared in an 
argument list of a FUNCTION, SUBROUTINE, or 
ENTRY statement. 

3. In a FUNCTION subprogram, only the FUNCTION 
name may be used as the variable to carry a 
result back to the calling program. The ENTRY 
name may not be used for this purpose. 

4. An ENTRY name may appear in an EXTERNAL 
statement in the same manner as a FUNCTION 
or SUBROUTINE name. 

5. Entry into a subprogram initializes all refer- 
ences in the entire called subprogram from 
items in the argument list of the CALL or func- 
tion reference. (For instance, if, in the 
example that appeared in the preceding text in 
this section, entry is made at SUB2, the 
variables in statement 10 will reference the 
argument list of SUB2.) 

6. ENTRY statements may appear only in subprograms, 

7. The appearance of an ENTRY statement does not 
alter the rules regarding the placement of 
Arithmetic Statement Functions in subroutines. 
Arithmetic Statement Functions may follow an 
ENTRY statement only if they precede the first 
executable statement following the SUBROUTINE 
or FUNCTION statement. 
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